﻿Imports System.Data.SqlClient

Public Class frmTiepNhanKhachThue

    Private Sub frmTiepNhanKhachThue_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim listLoaiNha As New List(Of LoaiNhaDTO)
        listLoaiNha = LoaiNhaBUS.GetAll()
        cbxLoaiNha.DataSource = listLoaiNha
        cbxLoaiNha.ValueMember = "iMaLoaiNha"
        cbxLoaiNha.DisplayMember = "strTenLoaiNha"

        Dim listQuan As New List(Of QuanDTO)
        listQuan = QuanBUS.GetAll()
        cbxQuan.DataSource = listQuan
        cbxQuan.ValueMember = "iMaQuan"
        cbxQuan.DisplayMember = "strTenQuan"

    End Sub

    Private Sub btnTiepNhanKhach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTiepNhanKhach.Click
        If KhachThueBUS.KiemTraDayDu(txtHoTenKhach.Text, txtDienThoai.Text) Then
            If NhuCauBUS.KiemTraDayDu(txtKhoangGia.Text) Then
                Dim khachthue As New KhachThueDTO()
                Dim nhucau As New NhuCauDTO()

                Dim makhach As String = ""
                Dim macuoi As String = KhachThueBUS.LayMa_KT_Cuoi()
                makhach = KhachThueBUS.TinhMaKhach(macuoi)

                khachthue.strMaKhachThue = makhach
                khachthue.strHoTen = txtHoTenKhach.Text
                khachthue.strDienThoai = txtDienThoai.Text
                khachthue.isTinhTrang = False
                khachthue.isTamXoa = False

                KhachThueBUS.Insert(khachthue)
                '-----------------------
                nhucau.iMaLoaiNha = cbxLoaiNha.SelectedValue
                nhucau.iMaQuan = cbxQuan.SelectedValue
                nhucau.iKhoangGia = txtKhoangGia.Text
                nhucau.strMaKhachThue = khachthue.strMaKhachThue

                NhuCauBUS.Insert(nhucau)

                MessageBox.Show("Bạn đã thêm thành công Khách Hàng này!", "THÔNG BÁO")

            Else
                MessageBox.Show("Bạn chưa nhập đủ thông tin cần thiết!", "THÔNG BÁO")
            End If
        Else
            MessageBox.Show("Bạn chưa nhập đủ thông tin cần thiết!", "THÔNG BÁO")
        End If
    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        Me.Close()
        Form1.maintab.Tabs.RemoveAt(Form1.maintab.SelectedTabIndex)
        If Form1.maintab.Tabs.Count = 0 Then
            Form1.maintab.Visible = False
        End If
    End Sub

End Class